COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	    PROMPT("Move PUMA to foo")
C00004 ENDMK
C⊗;
    PROMPT("Move PUMA to foo");
    VAL("here foo",NOWAIT);
    VAL(crlf);
    PROMPT("Now move PUMA to bar");
    VAL("here bar",NOWAIT);
    VAL(crlf);
VAL("speed 100");
PRINT("Moving back & forth slowly",crlf);
   VAL("DO MOVE foo"); PRINT("at foo  ");
   VAL("DO MOVE bar"); PRINT("at bar  ");
VAL("speed 250");
PRINT("Moving back & forth quickly",crlf);
   VAL("DO MOVE foo"); PRINT("at foo  ");
   VAL("DO MOVE bar"); PRINT("at bar  ");
PRINT("Back to ready position",crlf);
VAL("do ready",NOWAIT);
PRINT("That's all",crlf);